home *** CD-ROM | disk | FTP | other *** search
- currentlinejoin 6 1 roll 2 setlinejoin 2 div 4 index 1 index add 4 index 2 index add 4 index 3 index sub 4 index 4 index sub
- 9 -5 roll pop pop pop pop pop
- matrix currentmatrix
- 5 1 roll
- newpath
- 3 index 20 add 3 index translate
- 0 0 moveto
- 0 index 3 index sub % height
- 2 index 5 index sub 20 sub % width-20
- 1 index 2 div 20 exch div % x scale
- 1 index 0 rlineto
- currentpoint 4 index 2 div add translate
- dup 1 scale
- 0 0 4 index 2 div 270 90 arcn
- 7 index setmatrix
- 1 index neg 0 rlineto
- 6 index 20 add 6 index 4 index 2 div add translate
- dup 1 scale
- 0 0 4 index 2 div 90 -90 arc
- closepath
- pop
- pop pop
- pop pop pop pop
- setmatrix
- setlinejoin
-